home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / lang / nrcobol_1e.lha / NRCOBOL1e / COBFILES / TESTSUB2.COB < prev   
Text File  |  1997-06-25  |  692b  |  27 lines
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID.   TESTSUB2.
  3.       *AUTHOR.        cHArRiOTt.
  4.        ENVIRONMENT DIVISION.
  5.  
  6.        CONFIGURATION SECTION.
  7.        SOURCE-COMPUTER.   AMSTRAD 1512.
  8.        OBJECT-COMPUTER.
  9.       *
  10.        DATA DIVISION.
  11.        FILE SECTION.
  12.       *
  13.        WORKING-STORAGE SECTION.
  14.        01 WS-TEST PIC X(10) VALUE SPACES.
  15.       *
  16.        LINKAGE SECTION.
  17.        01 TEST-NUMBER1 PIC 99.
  18.        01 TEST-NUMBER2 PIC 99.
  19.       *
  20.        PROCEDURE DIVISION USING TEST-NUMBER1 TEST-NUMBER2.
  21.  
  22.       *
  23.        0000-MAIN.
  24.            DISPLAY "now in test2 program , test ok!".
  25.            ADD TEST-NUMBER1 TO TEST-NUMBER2 GIVING TEST-NUMBER2.
  26.            EXIT PROGRAM.
  27.       *